Imports System.IO
Imports System.Text

Partial Class WebForm_CommonControl_xlsReaderData
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim SessionID As String = Request.QueryString("SessionID")
            If SessionID.ToString() = "" Then
                Response.BinaryWrite(Encoding.UTF8.GetBytes(MyObj.EmptyXML))
            Else
                If HttpContext.Current.Session(SessionID) Is Nothing Then
                    Response.BinaryWrite(Encoding.UTF8.GetBytes(MyObj.EmptyXML))
                Else
                    Response.BinaryWrite(Encoding.UTF8.GetBytes(HttpContext.Current.Session(SessionID)))
                End If
            End If
            Response.End()
        End If
    End Sub
End Class
